inherited sprContragents: TsprContragents
  Left = 368
  Top = 263
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1074#1083#1072#1076#1077#1083#1100#1094#1077#1074' '#1076#1086#1083#1075#1072
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited DBGridEh1: TDBGridEh
    PopupMenu = PopupMenu1
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ID'
        Footers = <>
        ReadOnly = True
      end
      item
        EditButtons = <>
        FieldName = 'NAME'
        Footers = <>
        Width = 214
      end
      item
        EditButtons = <>
        FieldName = 'SHORT_NAME'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'ADDRESS'
        Footers = <>
        Width = 178
      end
      item
        EditButtons = <>
        FieldName = 'PHONE'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'DIRECTOR'
        Footers = <>
        Width = 187
      end>
  end
  inherited ToolBar1: TToolBar
    inherited DBNavigator1: TDBNavigator
      Width = 210
    end
    inherited ToolButton6: TToolButton
      Left = 210
    end
    inherited ToolButton8: TToolButton
      Left = 218
    end
    object ToolButton2: TToolButton
      Left = 257
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 25
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 265
      Top = 0
      Action = aDTypes
    end
  end
  inherited dsReestr: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SPR_CONTRAGENTS'
      'SET '
      '    NAME = :NAME,'
      '    SHORT_NAME = :SHORT_NAME,'
      '    ADDRESS = :ADDRESS,'
      '    PHONE = :PHONE,'
      '    DIRECTOR = :DIRECTOR '
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SPR_CONTRAGENTS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SPR_CONTRAGENTS('
      '    ID,'
      '    NAME,'
      '    SHORT_NAME,'
      '    ADDRESS,'
      '    PHONE,'
      '    DIRECTOR '
      ')'
      'VALUES('
      '    :ID,'
      '    :NAME,'
      '    :SHORT_NAME,'
      '    :ADDRESS,'
      '    :PHONE,'
      '    :DIRECTOR '
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SHORT_NAME,'
      '    ADDRESS,'
      '    PHONE,'
      '    DIRECTOR '
      'FROM'
      '    SPR_CONTRAGENTS '
      'where(  id > 0'
      '     ) and (     SPR_CONTRAGENTS.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SHORT_NAME,'
      '    ADDRESS,'
      '    PHONE,'
      '    DIRECTOR '
      'FROM'
      '    SPR_CONTRAGENTS '
      'where id > 0')
    AutoUpdateOptions.UpdateTableName = 'SPR_CONTRAGENTS'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.GeneratorName = 'GEN_SPR_CONTRAGENTS_ID'
    UpdateTransaction = trReestr
    object dsReestrID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReestrNAME: TFIBStringField
      DisplayLabel = #1055#1086#1083#1085#1086#1077' '#1085#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReestrSHORT_NAME: TFIBStringField
      DisplayLabel = #1050#1086#1088'.'#1085#1072#1079#1074#1072#1085#1080#1077
      FieldName = 'SHORT_NAME'
      EmptyStrToNull = True
    end
    object dsReestrADDRESS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089
      FieldName = 'ADDRESS'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReestrPHONE: TFIBStringField
      DisplayLabel = #1058#1077#1083#1077#1092#1086#1085
      FieldName = 'PHONE'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReestrDIRECTOR: TFIBStringField
      DisplayLabel = #1060#1048#1054' '#1044#1080#1088#1077#1082#1090#1086#1088#1072
      FieldName = 'DIRECTOR'
      Size = 60
      EmptyStrToNull = True
    end
  end
  inherited PropStorageEh1: TPropStorageEh
    Section = 'sprContragents'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'DBGridEh1.<P>.Columns.ColumnsIndex'
      'DBGridEh1.<P>.Columns.<ForAllItems>.Width')
  end
  inherited ActionList1: TActionList
    object aDTypes: TAction
      Caption = #1058#1080#1087#1099' '#1076#1086#1083#1075#1086#1074' '#1076#1083#1103' '#1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1072
      Hint = 
        #1047#1072#1076#1072#1090#1100', '#1082#1072#1082#1080#1077' '#1090#1080#1087#1099' '#1076#1086#1083#1075#1086#1074' '#1080#1089#1087#1086#1083#1100#1079#1091#1102#1090#1089#1103' '#1076#1083#1103' '#1091#1095#1077#1090#1072' '#1076#1086#1083#1075#1086#1074' '#1076#1072#1085#1085#1086#1075#1086' ' +
        #1082#1086#1085#1090#1088#1072#1075#1077#1085#1090#1072
      ImageIndex = 35
      OnExecute = aDTypesExecute
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 218
    Top = 112
    object N1: TMenuItem
      Action = aDTypes
    end
  end
end
